Option Explicit
'OҲ ChartEventCls
Public WithEvents myCht As Chart
Private Sub myCht_BeforeDoubleClick(ByVal ElementID As Long, _
                                    ByVal Arg1 As Long, _
                                    ByVal Arg2 As Long, Cancel As Boolean)
    Dim mySeries As Series
    Dim myF      As String
    Dim myAd     As String
    Dim myRng  As Range
    Dim myMin    As Long
    Dim myMax    As Long
    Dim myStr As String
    Dim i        As Long
    If ElementID = xlSeries Then
        If Arg2 <> -1 Then
            myF = myCht.SeriesCollection(Arg1).Formula
            If myF Like "=SERIES(*" Then
                myF = Mid(myF, 9)
                For i = 1 To 3
                    myAd = Left(myF, InStr(myF, ",") - 1)
                    myF = Mid(myF, InStr(myF, ",") + 1)
                Next
                If Len(myAd) > 0 Then
                    Set myRng = Evaluate(myAd)
                    myMin = WorksheetFunction _
                    .Max(1, Arg2 - 5)
                    myMax = WorksheetFunction _
                    .Min(Arg2 + 5, myRng.Cells.Count)
                    For i = myMin To myMax
                        myStr = myStr _
                        & myRng.Cells(i).Value & vbCrLf
                    Next
                    MsgBox myStr
                End If
            End If
            Cancel = True
        End If
    End If
End Sub

'зǼҲ
Dim myChtCls As New ChartEventCls
Sub InitializeChartEvent()
    Set myChtCls.myCht = Worksheets(1).ChartObjects(1).Chart
End Sub
